home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / UTILITY / PROFILER / PRIM.TST < prev    next >
Encoding:
Text File  |  1989-06-16  |  1.9 KB  |  48 lines
  1.     { Profiler-Testversion zu \PROFILER.SYS\DEMOS.PAS\PRIM.PAS }  
  2.  
  3. CONST ___ = 11;
  4.    ___2 =2;
  5. VAR __ : INTEGER ;
  6. VAR _ : ARRAY [1..___] OF REAL ;
  7. VAR _2 : ARRAY [1..___2] OF REAL ;
  8. VAR _h : STRING; 
  9. VAR _f : TEXT;
  10. CONST N=1000;
  11. VAR I,K:INTEGER;
  12. PRIM:BOOLEAN;
  13. BEGIN FOR __:= 1 TO ___ DO _[__]:=0;  FOR __:= 1 TO ___2 DO _2[__]:=-1;  
  14. _[2]:=1.9E+999;_[3]:=-1.9E+999;_[5]:=1.9E+999;_[6]:=-1.9E+999;
  15. WRITE(2:4) ; 
  16. I:=1;   _[1]:=_[1]+1;  IF I<_[2] THEN _[2]:=I;  IF I>_[3] THEN _[3]:=I;  ; 
  17. REPEAT _[8] := _[8] + 1 ; 
  18. I:=I+2;   _[1]:=_[1]+1;  IF I<_[2] THEN _[2]:=I;  IF I>_[3] THEN _[3]:=I;  ; 
  19. PRIM:=TRUE;   _[7]:=_[7]+1; ; 
  20. K:=1;   _[4]:=_[4]+1;  IF K<_[5] THEN _[5]:=K;  IF K>_[6] THEN _[6]:=K;  ; 
  21. REPEAT _[9] := _[9] + 1 ; 
  22. K:=K+2;   _[4]:=_[4]+1;  IF K<_[5] THEN _[5]:=K;  IF K>_[6] THEN _[6]:=K;  ; 
  23. IF I MOD K=0
  24. THEN BEGIN _[10] := _[10] + 1 ;  PRIM:=FALSE;   _[7]:=_[7]+1;  END  ; 
  25. ;   _[4]:=_[4]+1;  IF K<_[5] THEN _[5]:=K;  IF K>_[6] THEN _[6]:=K; 
  26.    _[1]:=_[1]+1;  IF I<_[2] THEN _[2]:=I;  IF I>_[3] THEN _[3]:=I; UNTIL(NOT 
  27. PRIM)OR(K>=TRUNC(SQRT(I)));   _[1]:=_[1]+1;  IF I<_[2] THEN _[2]:=I; 
  28.  IF I>_[3] THEN _[3]:=I;    _[4]:=_[4]+1;  IF K<_[5] THEN _[5]:=K; 
  29.  IF K>_[6] THEN _[6]:=K;    _[7]:=_[7]+1;  ; 
  30. IF PRIM THEN BEGIN _[11] := _[11] + 1 ;  WRITE(I:4)
  31. ;   _[1]:=_[1]+1;  IF I<_[2] THEN _[2]:=I;  IF I>_[3] THEN _[3]:=I;  END ; 
  32.    _[7]:=_[7]+1;  UNTIL I>=N;   _[1]:=_[1]+1;  IF I<_[2] THEN _[2]:=I; 
  33.  IF I>_[3] THEN _[3]:=I; ;
  34. ;ASSIGN(_f,'\PROFILER.SYS\TESTFILE.TST\PRIM.WRT');
  35. REWRITE(_f);
  36. WRITELN(_f,'(c)1989mkbmeersaukleintier');
  37. WRITELN(_f,'\PROFILER.SYS\DEMOS.PAS\PRIM.PAS');
  38. WRITELN(_f,'ja');
  39. WRITELN(_f,'11.0');
  40. FOR __ := 1 TO ___ DO BEGIN 
  41. STR(_[__],_h);
  42. WRITELN(_f,_h); END;
  43. CLOSE(_f);
  44. WRITELN;WRITELN;
  45. WRITELN('-> Profile-Testlauf beendet. Werte in \PROFILER.SYS\TESTFILE.TST\PRIM.WRT');
  46. WRITELN('-> Bitte profile_2.prg starten. ');
  47. END.
  48.